unit Demo3rParty;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxEdit,
  DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
  cxContainer, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
  cxDBLookupEdit, cxDBLookupComboBox, dxdborgc, dxorgchr, dxTLClms, dxTL,
  dxCntner, AcroMultiDD, cxGridCardView, cxPC;

type
  TForm3rParty = class(TForm)
    dxTreeList1: TdxTreeList;
    dxTreeList1Column1: TdxTreeListColumn;
    dxTreeList1Column2: TdxTreeListColumn;
    dxTreeList1Column3: TdxTreeListColumn;
    dxTreeList1Column4: TdxTreeListColumn;
    dxTreeList1Column5: TdxTreeListGraphicColumn;
    dxTreeList1Column6: TdxTreeListPickColumn;
    dxOrgChart1: TdxOrgChart;
    dxDbOrgChart1: TdxDbOrgChart;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    AcroMultiReplacer1: TAcroMultiReplacer;
    cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid1CardView1: TcxGridCardView;
    cxGrid1CardView1CardViewRow1: TcxGridCardViewRow;
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxTabSheet2: TcxTabSheet;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure AcroMultiReplacer1BeforeReplace(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3rParty: TForm3rParty;

implementation

{$R *.dfm}

procedure TForm3rParty.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TForm3rParty.AcroMultiReplacer1BeforeReplace(Sender: TObject);
begin
  AcroMultiReplacer1.OwnerOption.CodePage:=InttoStr(GetACP);
end;

end.
